home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / prtfolio / beth2.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  1.1 KB  |  38 lines
  1. 'Thanks to BJ Gleason for PBASIC21 !
  2. 'Transpose by ,...
  3. ' John Fraser 76256,356
  4. cls
  5. locate 4,8
  6. print "Beethoven - Fur Elise "
  7. box 3,5,5,31,1
  8. print ""
  9. print ""
  10. for I=1 to 99
  11. read a
  12. read b
  13. if b=999then goto 2000
  14. '210print a
  15. '215print b
  16. if a=999 then goto 2000
  17. c = b/1 'change "1" for tempo
  18. sound a,b
  19. next I
  20. 'Main section
  21. 'Use one data line per measure
  22. 400data 63,15,44,15,63,15,44,15,63,15,60,15,62,15,61,15,41,50
  23. 500data 54,15,58,15,41,15,60,50,58,15,41,15,60,15,61,50,54,15
  24. 'Repeat of Main
  25. 600data 63,15,44,15,63,15,44,15,63,15,60,15,62,15,61,15,41,50
  26. 700data 54,15,58,15,41,15,60,50,52,15,61,15,60,15,41,50
  27. 'Bridge
  28. 800data 60,15,61,15,62,15,63,50,57,15,4,15,63,15,62,50
  29. 900data 54,15,63,15,62,15,61,50,54,15,62,15,61,15,60,50
  30. 1100data 54,15,63,15,54,15,63,15,54,15 
  31. 'End
  32. 1200data 63,15,44,15,63,15,44,15,63,15,60,15,62,15,61,15,41,50
  33. 1300data 54,15,58,15,41,15,60,50,58,15,41,15,60,15,61,50,54,15
  34. 1400data 63,15,44,15,63,15,44,15,63,15,60,15,62,15,61,15,41,50
  35. 1500data 54,15,58,15,41,15,60,50,52,15,61,15,60,15,41,50
  36. 1600data 999,999
  37. 2000 if isrun then run "menu" else system
  38. ə